From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 23 Nov 2002 14:10:19 +0000 (+0000)
Subject: (tooltip-gud-print-command): Add server prefix to the
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~54387
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9e06a9300911a3635da736688e4b5cdc4c5f131e;p=emacs.git

(tooltip-gud-print-command): Add server prefix to the
print command for gdb to keep it out of the command history.
---

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 7fd5533639d..a7d734516f2 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -482,7 +482,8 @@ If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
   (when tooltip-gud-dereference
     (setq expr (concat "*" expr)))
   (case tooltip-gud-debugger
-    ((gdb dbx) (concat "print " expr))
+    (gdb (concat "server print " expr))
+    (dbx (concat "print " expr))
     (xdb (concat "p " expr))
     (sdb (concat expr "/"))
     (perldb expr)))